home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64 / checksummer v3.1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  17 lines
  1. 1 if peek(1)<>53 then print"zuerst swiftload laden!":end
  2. 2 gosub4:gosub4:print"checksummer v3.1 aktiviert"
  3. 3 print"(de)aktivieren mit sys$e460":sys$e460:end
  4. 4 readv,b
  5. 5 for i=v to b:read a:poke i,a:next
  6. 6 return
  7. 7 data58464,58539,162,1,169,64,93,49,165,157,49,165
  8. 8 data169,240,202,16,245,96,169,0,170,133,254,200,177
  9. 9 data95,240,61,201,32,240,247,133,255,138,41,7,170
  10. 10 data240,13,72,165,255,201,128,42,202,208,250,133
  11. 11 data255,104,170,232,165,255,24,101,254,76,115,228
  12. 12 data32,210,255,76,128,164,19,32,32,32,32,32,19,18
  13. 13 data60,0
  14. 14 data58551,58585,192,4,48,195,198,214,165,214,72
  15. 15 data160,228,169,162,32,30,171,166,254,169,0,32,205
  16. 16 data189,169,62,32,210,255,104,133,214,169,141,208,194
  17.